by Dan Bruton, [email protected] (1 Submission)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 9th February 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Converts HTML to text by removing "<" and ">" and the text between "<" and ">".
'Dan Bruton, [email protected]
Private Sub Command1_Click()
Open App.Path & "/filename.html" For Input As 1
Open App.Path & "/filename.txt" For Output As #2
WDATA = True
Do
DoEvents
ASDF = Input(1, 1)
If ASDF = "<" Then WDATA = False
If ASDF = ">" Then
WDATA = True
End If
If WDATA = True And ASDF <> ">" Then
Print #2, ASDF;
Text1.Text = Text1.Text + ASDF
End If
Loop Until EOF(1)
Close 1
Close #2
End Sub
No comments have been posted about Converts HTML to text by removing < and > and the text between < and >.. Why not be the first to post a comment about Converts HTML to text by removing < and > and the text between < and >..